Versuch einer Klassifikation (in Bearbeitung)

knitr::opts_chunk$set(echo=FALSE,cache=TRUE)

Setup and data

── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ──
✔ ggplot2 3.3.6      ✔ purrr   1.0.1 
✔ tibble  3.1.8      ✔ dplyr   1.0.10
✔ tidyr   1.2.1      ✔ stringr 1.5.0 
✔ readr   2.1.2      ✔ forcats 0.5.2 
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()

Attaching package: 'kableExtra'


The following object is masked from 'package:dplyr':

    group_rows


Linking to GEOS 3.11.0, GDAL 3.5.3, PROJ 9.1.0; sf_use_s2() is TRUE

Long data

Warning: Using an external vector in selections was deprecated in tidyselect 1.1.0.
ℹ Please use `all_of()` or `any_of()` instead.
  # Was:
  data %>% select(Component)

  # Now:
  data %>% select(all_of(Component))

See <https://tidyselect.r-lib.org/reference/faq-external-vector.html>.

`summarise()` has grouped output by 'Child'. You can override using the
`.groups` argument.
`summarise()` has grouped output by 'Norm', 'Result'. You can override using
the `.groups` argument.

                      V1   V2   V3   V4   V5   V6   V7   V8   V9  V10  V11  V12
Result                 F    F    F    F    F    F    N    N    N    N    N    N
cohort              2017 2018 2019 2020 2021 2022 2017 2018 2019 2020 2021 2022
Fitness_q_All        255  857 1129  453 1057 2499 1096 3689 4312 1487 3854 8228
Fitness_q_Cohort     292 1063 1296  443 1040 2265 1061 3571 4163 1483 3821 8349
Fitness_q_Cohort_T6  292 1063 1296  443 1040 2265 1088 3638 4266 1513 3875 8527
                     V13  V14  V15  V16  V17  V18  V19  V20  V21
Result                 T    T    T    T    T    T <NA> <NA> <NA>
cohort              2017 2018 2019 2020 2021 2022 2017 2021 2022
Fitness_q_All        324 1074 1179  406  993 2010   38    2   23
Fitness_q_Cohort     322  986 1161  420 1043 2123   38    2   23
Fitness_q_Cohort_T6  295  919 1058  390  989 1945   38    2   23

`summarise()` has grouped output by 'cohort', 'District', 'School', 'Name',
'Sex', 'Club'. You can override using the `.groups` argument.

Tables

Filter definitions

Shared HTML Table

Attaching package: 'jsonlite'

The following object is masked from 'package:purrr':

    flatten

Interaktive Tabelle

• in Bearbeitung, Erläuterung erfolgt in Kürze

# browsable shared table
browsable(
  div("Filter: ",
 # class = "movies",
  style="font-weight: bold",
  div(#style="display: flex",
    style="font-weight: normal; display: grid; grid-template-columns: 1fr 3fr 1fr 1fr; gap: 10px;",
    class = "filters",
  #  search_filter("filter_title", "Search titles", shared_movies, "title"),
    select_filter("filter_cohort", "Jahr", shared_data, "cohort"),
    select_filter("filter_genres", "Kreis", shared_data, "District"),
  select_filter("filter_sex", "Geschlecht", shared_data, "Sex"),
  br(),
  select_filter("filter_sport", "Sport-AG", shared_data, "Sport"),
   select_filter("filter_club", "Vereinsmitgliedschaft", shared_data, "Club")
  ),
br(),
  tagList(
    div(tags$label("Gruppierung", `for` = "cars-grouping-select")),
    tags$select(
      id = "cars-grouping-select",
    onchange = "Reactable.setGroupBy('cars-grouping-table', this.value ? [this.value] : [])",
  # onchange = "Reactable.setGroupBy('cars-grouping-table', ['cohort', 'District'])"
      tags$option("Keine", value = ""),
      tags$option("Jahr", value = "cohort"),
       tags$option("Kreis", value = "District"),
       tags$option("Geschlecht", value = "Sex"),
       tags$option("Schule", value = "Name"),
  tags$option("Sport-AG", value = "Sport"),
      tags$option("Vereinsmitgliedschaft", value = "Club"),
      #lapply(c( "Kreis", "Sex","Name"), tags$option)
    ),
    
  
 #   tags$hr("aria-hidden" = "true"),
#tags$hr(),
div(style="font-weight: normal;font-size: 0.875em",
  tbl))
))

Filter:

Jahr Alle 2017 2018 2019 2020 2021 2022

Kreis Alle Altenburger Land Eichsfeld Eisenach, Stadt Erfurt, Stadt Gera, Stadt Gotha Greiz Hildburghausen Ilm-Kreis Jena, Stadt Kyffhäuserkreis Nordhausen Saale-Holzland-Kreis Saale-Orla-Kreis Saalfeld-Rudolstadt Schmalkalden-Meiningen Sömmerda Sonneberg Suhl, Stadt Unstrut-Hainich-Kreis Wartburgkreis Weimar, Stadt Weimarer Land

Geschlecht Alle m w

Sport-AG Alle ja nein

Vereinsmitgliedschaft Alle ja nein

Gruppierung

Keine Jahr Kreis Geschlecht Schule Sport-AG Vereinsmitgliedschaft

Updates

• 2023-04-24: Erstellen der Seite